home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / popper_mod.nasl < prev    next >
Text File  |  2005-01-14  |  2KB  |  70 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7. if(description)
  8. {
  9.  script_id(11334);
  10.  script_bugtraq_id(4412);
  11.  script_version ("$Revision: 1.7 $");
  12.  script_cve_id("CVE-2002-0513");
  13.  
  14.  name["english"] = "popper_mod";
  15.  
  16.  script_name(english:name["english"]);
  17.  
  18.  desc["english"] = "
  19. It is possible to administrate the remote popper_mod CGI
  20. by requesting the /admin directory directly.
  21.  
  22. An attacker may use this flaw to obtain the passwords
  23. of your users.
  24.  
  25. Solution : upgrade to the latest version
  26. Risk factor : High";
  27.  
  28.  
  29.  
  30.  script_description(english:desc["english"]);
  31.  
  32.  summary["english"] = "Checks if popper_mod is vulnerable";
  33.  
  34.  script_summary(english:summary["english"]);
  35.  
  36.  script_category(ACT_GATHER_INFO);
  37.  
  38.  
  39.  script_copyright(english:"This script is Copyright (C) 2003 Renaud Deraison",
  40.         francais:"Ce script est Copyright (C) 2003 Renaud Deraison");
  41.  family["english"] = "CGI abuses";
  42.  family["francais"] = "Abus de CGI";
  43.  script_family(english:family["english"], francais:family["francais"]);
  44.  script_dependencie("find_service.nes", "no404.nasl", "httpver.nasl");
  45.   script_require_ports("Services/www", 80);
  46.  exit(0);
  47. }
  48.  
  49. #
  50. # The script code starts here
  51. #
  52.  
  53. include("http_func.inc");
  54. include("http_keepalive.inc");
  55.  
  56.  
  57. port = get_http_port(default:80);
  58.  
  59. if(!get_port_state(port))exit(0);
  60.  
  61. foreach dir (make_list(cgi_dirs(), "/mail"))
  62. {
  63.  req = http_get(item:string(d, "/admin/"), port:port);
  64.  result = http_keepalive_send_recv(port:port, data:req);
  65.  if(result == NULL) exit(0);
  66.  
  67.  # The typo below is included in the software.
  68.  if("webmail Adminstration" >< result)security_hole(port);
  69. }
  70.